home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / e_to_l / isamexpt / dbf2isam.dfm / dbf2isam.txt
Text File  |  1996-09-15  |  5KB  |  170 lines
  1. object ImportDlg: TImportDlg
  2.   Left = 169
  3.   Top = 84
  4.   ActiveControl = StartBttn
  5.   BorderStyle = bsDialog
  6.   Caption = 'DBASE-ISAM-TRANSFER'
  7.   ClientHeight = 289
  8.   ClientWidth = 317
  9.   Font.Color = clBlack
  10.   Font.Height = -11
  11.   Font.Name = 'Arial'
  12.   Font.Style = []
  13.   PixelsPerInch = 96
  14.   Position = poScreenCenter
  15.   OnCreate = FormCreate
  16.   OnDestroy = FormDestroy
  17.   OnShow = FormShow
  18.   TextHeight = 14
  19.   object Bevel1: TBevel
  20.     Left = 8
  21.     Top = 64
  22.     Width = 300
  23.     Height = 185
  24.     Shape = bsFrame
  25.     IsControl = True
  26.   end
  27.   object Gauge1: TGauge
  28.     Left = 20
  29.     Top = 72
  30.     Width = 281
  31.     Height = 33
  32.     Font.Color = clBlack
  33.     Font.Height = -11
  34.     Font.Name = 'Arial'
  35.     Font.Style = []
  36.     ForeColor = clBlue
  37.     ParentFont = False
  38.     Progress = 0
  39.   end
  40.   object CancelBtn: TBitBtn
  41.     Left = 184
  42.     Top = 256
  43.     Width = 81
  44.     Height = 29
  45.     Cancel = True
  46.     Caption = 'Ende'
  47.     ModalResult = 2
  48.     TabOrder = 0
  49.     OnClick = CancelBtnClick
  50.     Glyph.Data = {
  51.       66010000424D6601000000000000760000002800000014000000140000000100
  52.       040000000000F000000000000000000000000000000000000000000000000000
  53.       8000008000000080800080000000800080008080000080808000C0C0C0000000
  54.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888880088
  55.       8888888800008888888060888888888833318888880660888888888800008888
  56.       8066608888888888E9960000066660000000000000808888066660FFF0888888
  57.       00218888066660FFF088888817968888066660FFF088888888888888066060FF
  58.       F088808820568888066660FFF088008847048888066660FFF0800000689E8888
  59.       066660FFF088008847888888066660FFF0888088056A8888066660FFF0888888
  60.       21B18888066660FFF08888880000888806660FFFF0888888222288880660FFFF
  61.       F0888888AAAA8888060FFFFFF088888888888888000000000088888800008888
  62.       88888888888888880000}
  63.     Margin = 2
  64.     Spacing = -1
  65.     IsControl = True
  66.   end
  67.   object StartBttn: TBitBtn
  68.     Left = 48
  69.     Top = 256
  70.     Width = 93
  71.     Height = 29
  72.     Hint = 'Start Transfer'
  73.     Caption = 'Start'
  74.     TabOrder = 1
  75.     OnClick = StartBttnClick
  76.     Glyph.Data = {
  77.       76010000424D7601000000000000760000002800000020000000100000000100
  78.       04000000000000010000130B0000130B00000000000000000000000000000000
  79.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  80.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
  81.       333333333333337FF3333333333333903333333333333377FF33333333333399
  82.       03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
  83.       99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
  84.       99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
  85.       03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
  86.       33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
  87.       33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
  88.       3333777777333333333333333333333333333333333333333333}
  89.     NumGlyphs = 2
  90.   end
  91.   object DBGrid1: TDBGrid
  92.     Left = 20
  93.     Top = 112
  94.     Width = 277
  95.     Height = 129
  96.     DataSource = DataSource1
  97.     TabOrder = 2
  98.     TitleFont.Color = clBlack
  99.     TitleFont.Height = -11
  100.     TitleFont.Name = 'Arial'
  101.     TitleFont.Style = []
  102.   end
  103.   object GroupBox1: TGroupBox
  104.     Left = 8
  105.     Top = 8
  106.     Width = 301
  107.     Height = 53
  108.     Caption = 'Optionen'
  109.     TabOrder = 3
  110.     object aktualRadio: TRadioButton
  111.       Left = 32
  112.       Top = 12
  113.       Width = 101
  114.       Height = 17
  115.       Caption = 'nur aktualisieren'
  116.       TabOrder = 0
  117.     end
  118.     object appendradio: TRadioButton
  119.       Left = 148
  120.       Top = 12
  121.       Width = 117
  122.       Height = 17
  123.       Caption = 'nur neue anh∩┐╜ngen'
  124.       TabOrder = 1
  125.     end
  126.     object appendandupdateradio: TRadioButton
  127.       Left = 32
  128.       Top = 32
  129.       Width = 161
  130.       Height = 17
  131.       Caption = 'anh∩┐╜ngen und aktualisieren'
  132.       Checked = True
  133.       TabOrder = 2
  134.       TabStop = True
  135.     end
  136.   end
  137.   object Table1: TTable
  138.     Left = 264
  139.     Top = 256
  140.   end
  141.   object IsamTable1: TIsamTable
  142.     MyUnitName = 'E:\DELPHI\BIN\UNIT1.PAS'
  143.     IsamKeyProc.Strings = (
  144.       'Function KeyProc(Var Daten; KeyNr:Word): IsamKeyStr;'
  145.       'var s : String;'
  146.       'begin'
  147.       '  s:= '#39#39';'
  148.       '  with (Daten) do begin'
  149.       '    case KeyNr of'
  150.       '      1 : S:= '#39#39';'
  151.       '    End;'
  152.       '  end;'
  153.       '  KeyProc:= s;'
  154.       'end;'
  155.       '')
  156.     IsamRecord.Strings = (
  157.       'Type'
  158.       ' = Record'
  159.       '  Dummy : Longint;'
  160.       'end;')
  161.     Left = 12
  162.     Top = 256
  163.   end
  164.   object DataSource1: TDataSource
  165.     DataSet = Table1
  166.     Left = 288
  167.     Top = 256
  168.   end
  169. end
  170.